Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue26/tiptrix/NoteMenu/main.dfm/main.txt

Text File | 1997-08-16 | 3.6 KB | 173 lines

object Form1: TForm1
  Left = 200
  Top = 108
  Width = 304
  Height = 190
  Caption = 'Notebook Menu Demo'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object TabSet1: TTabSet
    Left = 0
    Top = 123
    Width = 296
    Height = 21
    Align = alBottom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Tabs.Strings = (
      'Page 1'
      'Page 2')
    TabIndex = 0
    OnChange = TabSet1Change
  end
  object Notebook1: TNotebook
    Left = 0
    Top = 0
    Width = 296
    Height = 123
    Align = alClient
    TabOrder = 1
    object TPage
      Left = 0
      Top = 0
      Caption = 'Default'
      object BitBtn1: TBitBtn
        Left = 212
        Top = 8
        Width = 75
        Height = 25
        Caption = 'Form 2'
        TabOrder = 0
        OnClick = BitBtn1Click
      end
      object BitBtn2: TBitBtn
        Left = 212
        Top = 40
        Width = 75
        Height = 25
        Caption = 'Form 3'
        TabOrder = 1
        OnClick = BitBtn2Click
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 8
    Top = 8
    object File1: TMenuItem
      Caption = '&File'
      object New1: TMenuItem
        Caption = '&New'
      end
      object Open1: TMenuItem
        Caption = '&Open...'
      end
      object Save1: TMenuItem
        Caption = '&Save'
      end
      object SaveAs1: TMenuItem
        Caption = 'Save &As...'
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Print1: TMenuItem
        Caption = '&Print...'
      end
      object PrintSetup1: TMenuItem
        Caption = 'P&rint Setup...'
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
      end
    end
  end
  object Page1Menu: TMainMenu
    Left = 24
    Top = 16
    object Window1: TMenuItem
      Caption = '&Window'
      GroupIndex = 1
      object NewWindow1: TMenuItem
        Caption = '&New Window'
      end
      object Tile1: TMenuItem
        Caption = '&Tile'
      end
      object Cascade1: TMenuItem
        Caption = '&Cascade'
      end
      object ArrangeAll1: TMenuItem
        Caption = '&Arrange All'
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Hide1: TMenuItem
        Caption = '&Hide'
      end
      object Show1: TMenuItem
        Caption = '&Show...'
      end
    end
  end
  object Page2Menu: TMainMenu
    Left = 40
    Top = 24
    object Window2: TMenuItem
      Caption = '&Window'
      GroupIndex = 1
      object NewWindow2: TMenuItem
        Caption = '&New Window'
      end
      object Tile2: TMenuItem
        Caption = '&Tile'
      end
      object Cascade2: TMenuItem
        Caption = '&Cascade'
      end
      object ArrangeAll2: TMenuItem
        Caption = '&Arrange All'
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Hide2: TMenuItem
        Caption = '&Hide'
      end
      object Show2: TMenuItem
        Caption = '&Show...'
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      GroupIndex = 1
      object Contents1: TMenuItem
        Caption = '&Contents'
      end
      object SearchforHelpOn1: TMenuItem
        Caption = '&Search for Help On...'
      end
      object HowtoUseHelp1: TMenuItem
        Caption = '&How to Use Help'
      end
      object About1: TMenuItem
        Caption = '&About...'
      end
    end
  end
end